Top 10k strings from Spectrum Computing - Issue 16 (1985)(ASP Software)(Side B).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
8
4 INSTRUCTIONS.
4 ADDR=65070
4
3 ;" "
2 y=y+(z$="z"
2 x=x+(z$="p"
2 ;"SCREEN ";sc
2 ;" STOP THE TAPE "
2 ;" PRESS ANY KEY TO TURN THE PAGE ":
2 ;" PRESS ANY KEY TO TURN PAGE "
2 ,X1;" ":
1 zX?{ZI{Pardon?
1 x,y-p;"GLUG"
1 towin>MAXSCORE
1 toad
1 thisscore=thisscore+1
1 thisscore=0
1 thisscore<towin
1 simeon
1 simcode
1 score=score+thisscore:
1 review2 8
1 review1
1 r=(j$(y+p)="
1 r=(i$(y+p)="
1 r=(h$(y+p)="
1 r=(g$(y+p)="
1 r=(f$(y+p)="
1 r=(e$(y+p)="
1 r=(d$(y+p)="
1 r=(c$(y+p)="
1 r=(b$(y+p)="
1 r=(a$(y+p)="
1 p;"................................"
1 p;" TIME OUT ":
1 oy=y+(z$="z")-(z$="a"):
1 ox=x+(z$="p")-(z$="o"):
1 o,o;" Press any key to play again or ":
1 o,o;" LIVES ";l$;" ";
1 load screen ls
1 hack 7
1 a$=" Twenty tons. Collect the rings through twenty screens , but avoid the 20 ton weights and the 'eaters'...................... Press a key to start. "
1 `c(&$"f 8642f.,*jbd0hbd08t
1 ````````````
1 YOU WILL HEAR THE 'WIN' SIGNAL."
1 WILL REPEAT THE FIRST SIGNAL ANDADD A NEW ONE.YOU MUST THEN
1 WILL HEAR THE 'LOSE' SIGNAL."
1 WHICH WILL PLAY BACK THE LONGESTSEQUENCE SO FAR."
1 WELL-KNOWN GAME OF A SIMILAR
1 Table used:
1 Table size:
1 TO BE REPEATED DEPENDS ON THE
1 THEIR CORRECT SEQUENCE."
1 Start tape..
1 SIMEON
1 SIGNALS ON A'KNOCKOUT' BASIS."
1 SIGNALS CORRECTLY,SIMEON WILL
1 SIGNALS (LEVEL 3) OR 31 SIGNALS
1 SEQUENCE EXACTLY OR BY TAKING
1 SEQLEN=SEQLEN+1
1 SELECT LEVEL
1 SCORE WHICH YOU CAN COMPARE WITHYOUR BEST SCORE BY PRESSING 'H'
1 SAVE SCREEN
1 REPLAY LAST SEQUENCE
1 REPEATING THE SEQUENCE OF
1 REPEAT THESE TWO SIGNALS IN
1 REPEAT THE NUMBER OF SIGNALS FORA GIVEN LEVEL,YOU HAVE WON AND
1 REPEAT THE FIRST TWO SIGNALS ANDADD A NEW ONE ETC."
1 Pass 2 errors:
1 PROCEEDS AS DESCRIBED EXCEPT
1 PRINT PAGE TWO OF
1 PRINT PAGE THREE OF
1 PRINT PAGE ONE OF
1 PRINT PAGE FOUR OF
1 PRINT "PRESS ANY KEY TOCONTINUE
1 PRESSING ONE OF FOUR KEYS:'1'
1 POKE CAPS LOCK
1 PLAYERS PROCEED BY TAKING TURNS
1 PLAYBACK LONGEST SEQUENCE
1 PLAYBACK CURRENT SEQUENCE
1 PLAY,PRESS 'S' TO START THE
1 No Table space!
1 NOOFSHAPES=NOOFSHAPES+1
1 NOOFSHAPES=0
1 NAME,FOR THE 48K SPECTRUM.
1 MAXSCORE=MAXSCORE+1
1 MAXSCORE=0
1 MAIN GAME LOOP
1 LONGEST=SEQLEN
1 LONGER THAN SIX SECONDS TO PRESSA 'SIGNAL' KEY.IN THIS CASE,YOU
1 LOAD SCREEN
1 LEVEL=LEVEL+1
1 LEVEL OF PLAY.THIS ALLOWS YOU TOSELECT A GAME OF 8 SIGNALS (LEV-EL 1),14 SIGNALS (LEVEL 2),20
1 L(NOOFSHAPES):
1 KEY IN PLAYERS SEQUENCE
1 Interrupted
1 H(NOOFSHApES):
1 GREEN AND 'Z' FOR BLUE.SIMEON
1 GET KEYPRESS WITHIN SIX SECONDS
1 GENS20T
1 GAME.YOU WILL BE GIVEN THE FIRST"
1 FOR RED,'0' FOR YELLOW,'M' FOR
1 Executes:
1 ERROR IN INPUT
1 DRAW TITLE
1 DESIGN SCREEN
1 DECEMBER 1984
1 Created with Ramsoft MakeTZX
1 CONSTRUCT DISPLAY
1 Buffer size?
1 Bad Memory!
1 BY DECIDING WHO GOES FIRST.PLAY
1 BY CHRIS HOWARD STONE
1 ADDR=65145
1 ADDR=65120
1 ADDR=65095
1 A(SEQLEN)=COL
1 <``~<ffffff<00<0006
1 ;maxscore;
1 ;ls;" ";#1
1 ;"space 1 ";
1 ;"design screen keys a/z o/p";
1 ;"YOU CAN LOSE BY NOT REPEATING A
1 ;"TWO OR MORE PLAYERS MAY COMPETE
1 ;"Screen ";ls;" ";
1 ;"STOP THE TAPE"
1 ;"STILL LOADING....":
1 ;"START THE TAPE":
1 ;"SIMEON IS A SIMULATION OF THAT
1 ;"SCORE ";s;" ";
1 ;"SCORE ";s;
1 ;"Please wait.":
1 ;"Please place start pos (s) and end pos (e)."
1 ;"PRESS ANY KEY TO CONTINUE"
1 ;"PRESS 1 - 5"
1 ;"PRESS 'R' TO READ AGAIN ";
1 ;"OR PRESS 'C' TO CONTINUE":
1 ;"Loading Code";
1 ;"LEVEL";:
1 ;"Hackers Hangout"
1 ;"HI ";hs;
1 ;"ASSUMING YOU REPEAT THESE TWO
1 ;"5. VIEW SCREENS"
1 ;"4. LOAD SCREENS < TAPE";
1 ;"3. SAVE SCREENS > TAPE";
1 ;"20 tons.";
1 ;"20 tons":
1 ;"2. DESIGN SCREEN";
1 ;"1. PLAY GAME";
1 ;"** MAIN MENU **"
1 ;" YOU CAN'T SWIM "
1 ;" THE WORLD IS FLAT "
1 ;" THE ALLIGATOR GOT YOU "
1 ;" START THE TAPE ":
1 ;" SIMEON ":
1 ;" RAN OVER "
1 ;" NEW HIGH SCORE "
1 ;" HI ";hs;
1 ;" C.COLUMBUS WAS WRONG "
1 ;" ALL OK."
1 ;" A TURTLE DUCKED YOU "
1 ;" 'Q' WILL LOAD NEXT PROGRAM"
1 ;" ";score+thisscore
1 ;" TOADY "
1 ;" TIME ";t;
1 ;" ** Saving ** Please wait.":
1 ;" OUT OF TIME ":
1 ;" GAME OVER "
1 ;" CRUSHED ";
1 ;" "''''''
1 20tons
1 20tgra
1 20tcode
1 ,r,r,r,r,5
1 +(Z$="p")-(Z$="o")):
1 *WARNING*
1 *HISOFT GENS2 ASSEMBLER*
1 *(SEQLEN>9
1 *(SEQLEN>5
1 *(SEQLEN<6
1 *(SCREEN-1
1 (thisscore
1 (LEVEL)+" ":
1 (LEVEL 4).IF YOU SUCCESFULLY
1 #p;" PRESS ANY KEY TO START":
1 #p;" PRESS ENTER TO QUIT"
1 "your mate to clear blockages in"
1 "which is on the above list you"
1 "what is really intriguing about it is that it makes a big dif- ference where the line is put ina program."
1 "wander around the pipes getting"
1 "type 'R' to re-read"
1 "type 'L' to load next"
1 "treated as an educational tool"
1 "to be desired, but the game"
1 "thinking about buying a program"
1 "the pipes, while you keep an"
1 "the interface is attached, the keyboard will be ignored."
1 "the answer to that 64 dollar"
1 "start on screen (1-20) ";ls:
1 "software are very good indeed."
1 "should first play around with"
1 "save screen no(1-20) ";screen:
1 "reset the RAMTOP to the 16K fig-ure, one of the stripes has to be removed to get a steady dis- play. Why should a 48K machine that thinks it's a 16K machine run slower than when it knows ithas 48K? "
1 "quite good. The price is also"
1 "question is that they are."
1 "play. Overall this is a good"
1 "of actually slows up the action by sending the BASIC off lookingfor GOSUBs all the time. So if you're after speed, thenforget the style, just get the critical bits at the top of the list."
1 "o",o,p,r,r,r,r,p,o
1 "mini office to give you a feel"
1 "load screen (1-20)";ls:
1 "it takes too long to find the line, then a frame is missed. A 'PAUSE 1' statement keeps the stripes in step with the TV picture by waiting for a pulse from the same clock that is usedfor the video output, but if the"
1 "is well balanced and fun to"
1 "interesting at 5.95 they seem a"
1 "intent on preventing your work"
1 "good buy. But are they any good"
1 "gets a match. Obviously, the nearer the line is to the begin-ning of the list, the quicker itwill be found."
1 "game of the same name. You are"
1 "for the subject and then choose"
1 "for fairly simple tasks and if"
1 "f",o,r,r,r,r,r,160
1 "eye open for the various nastys"
1 "dicated, which it does by start-ing at the beginning and lookingat every line number until it "
1 "at the end of this not-very-longprogram."
1 "article/program an even odder effect showed up which I cannot explain at all. I use a 48K Spectrum, but have to check thateverything will fit in 16K mach-ines. For some reason, when I "
1 "arcade style game and worth the"
1 "a foreman plumber who has to"
1 "a dedicated product."
1 "This is a conversion of the C64"
1 "The manual with the programs is"
1 "SIGNAL WHICH YOU MUST REPEAT BY
1 "SCORE TO FINISH (
1 "Review 2 Pipeline II"
1 "Press C continue or Q quit ";y$
1 "My feeling is that if you are"
1 "Mini Office consists of 4 progs"
1 "Load screen ?(y/n) ";y$:
1 "I felt the graphics left a bit"
1 "BASIC is late getting there, it waits for the next pulse. So thestripes don't drift up and down,but are absent from every other frame. How about a demo?"
1 "All the programs are adequate"
1 " Review 1 Mini Office":
1 " OK to save? (Y/N) ";Y$:
1 " This search time becomes crit-ical where the stripes are con- cerned because line 10 must be executed every 50th of a second if the stripes are to appear in every television frame, and if "
1 " This program line has some un-expected properties! "
1 " This is a version of a game which is familiar to most. We have modified it to accept inputfrom Kempston joystick or key- board. "
1 " The stripes are now being pro-duced by line 9990, which is identical to line 10 except for its position. If there was one less stripe (one less BORDER statement) then the routine would still be flicker-free even"
1 " The striped border in this is-sue taught me a lot about speed-ing up the execution time of BASIC programs. The border is produced by line 10, and it's aninteresting trick in itself, but"
1 " The significance of all this is that the modular or structur-ed approach to programming that we are all supposed to approve"
1 " The reason for this is that whenever the BASIC comes across a GOTO or GOSUB or the like, it has to find the line number in-"
1 " The keyboard controls are -- Q for UP - A for DOWN O for LEFT - P for RIGHT "
1 " That's it for this issue, why not have a look at the listing?"
1 " That is not the end of it, ei-ther. While writing this very "
1 " In fact, if this line was put at the end of a longish prog, itwould give a very different ef- fect. You still get the stripes,but they flicker. "
1 " Do not attempt to connect the joystick interface to the com- puter while it is turned on. It is, however, okay to plug the joystick itself into the inter- face pack if the pack is alreadyconnected to the computer. If "
1 " A real 16K Spectrum runs this routine at the same speed as a 48K Spectrum that only thinks itis a 16K model, so I have placeda CLEAR 32599 statement in the program to make it run in both."
1 " 10 PAUSE 1: IF INKEY$="""" THEN BORDER 7: BORDER 5: BORDER 4: BORDER 6: BORDER 3: BORDER 2: BORDER 5: GO TO 10 "
1 " Word processor"
1 " Spreadsheet"
1 " PRESS 'R' AND THE LAST SEQU-ENCE WILL BE RE-PLAYED.COUNT THENUMBER OF SIGNALS:THIS IS YOUR
1 " Graphics program"
1 " Database"
1 " 2 3 4"
1 " TOADY -- by R. Grainger "
1 " THE NUMBER OF SIGNALS
1 max) ";towin
1 main menu
1 Press a key to start. Twenty tons. Collect the rings through twenty screens , but avoid the 20 ton weights and the 'eaters'......................
1 P Cooke Oct 1984
1 Copyright HISOFT 1983
1 5210 10
1 All rights reserved
1 THE OBJECT OF THE GAME ISTO REPEAT CORRECTLY A LONGER ANDLONGER SEQUENCE OF SIGNALS.TO
1 20 TONS
1 w